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ARATIONS 
FCC = find first clear bit 
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42800 gr Seem I SES P9:88:8Ss FAIENES Bacto yop Oe n:1 «| ee dy 
TITLE Leste ¢ - find first clear bit 
SIDENT /1-002/ ; File: LIBFFC.MAR 
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corre rent &s} 1978, 1980, 1982, 1984 B 

DIGITAL E a EGORPORATION, MAYNARD. MASSACHUSETTS. 

ALL RIGHT oR 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND goriee 
ONLY IN mie WITH THE es OF SUCH pat ae Bh. THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR OTHER 
COPIES TH NEREOF oat NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
onpeokat ihe." NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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++ 
; FACILITY: General Utility Library 
; ABSTRACT: 

A bit string is scanned for the first bit clear. If one is found before 
the string is exhausted then a success status is returned. Otherwise a 
failure status is returned. 


; ENVIRONMENT: User Mode, AST Reentrant 


: AUTHOR: Donald G. Petersen, CREATION DATE: 03-Jan-78 
: MODIFIED BY: 
DGP. 03-Jan-78 : VERSION 00 
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ONE PEELE ES PWN rononononononononony 3] 3 3 3 


COOCCSOSOOSOOSOOOOOOCOCOOSOOOOSOOOCOOOOOoOOO: 


0 01 - Origi 

0 Boe 6 - DGP Shee Jan-78 - Change LIBSNOTFOU to a Litera 

bp 0-05 - Return SS$_N WORAAL instead of Lie NOR MAL. ri 15-July-78 
chan 0 

00 1-00) = Kogene version sunber and BE notice. JBS 16-NOV-78 

00 1-002 - Add "’_"* to PSECT directive. JBS 21-DEC- 


. 
o 
. 
o 
. 
a 
. 
. 
. 
e 
. 
° 
© 
oe 
. 
o 
. 
a 
. 
o 
7 
° 
. 
e 
. 
o 
. 
° 
. 
e 
. 
o 
. 
e 
ae 
o 
- 
o 
. 
o 
e 
- 
° 
. 
* 
o 
. 
° 
o 
. 
o 
. 
° 
. 
e 
a 
e 
. 
o 
. 
. 
. 
2 
. 
> 
. 
. 
. 
o 
. 
o 
7 
Y 
. 
° 
7 
e 
. 
. 
. 
a 
. 
. 
- 
e 
° 
a 
o 
y 
os 
@ 
- 
. 
7 
e 
. 
o 
. 
e 
. 
. 
e 
. 
e 
° 
” 
. 
e 
. 
. 
. 
7 


n 10 | 
1*602' rare, "SSEb=1586 19:98:53 HCTORTE.SREScrorrceman:1 = P88 By 
~SBTTL DECLARATIONS 
INCLUDE FILES: 


EXTERNAL DECLARATIONS: 
-DSABL GBL 3 Biase automatic generation of 
.EXTRN SS$_NORMAL ; Normal successful {completion 


eEXTRN LIBS_NOTFOU SEVERE error condi 
; Value not found 


MACROS: 


EQUATED SYMBOLS: 


; OWN STORAGE: 


PSECT DECLARATIONS: 
-PSECT _LIBSCODE PIC, SHR, LONG, EXE, NOWRT 


C0 C000 09 SII NNN NNN PA AAPA AAA MINIT 


WN OS ODNA UNE WIN 0 OO NAME AN FO ODNAUIE Wt 
e«e 


N 10 
IBSFFC find firs clear bit 16-SEP-1984 AX/VMS v04-00 P 
4800 LIBSFCC find ‘est. clear bit g- ~SEP-1984 4 99: 88: 3 LIBRTL 4 taht: IBFFC.MAR;1 — 3) 


5 r -SBTTL LIBSFCC = find first clear bit 
FUNCTIONAL DESCRIPTION: . 


The field spest cee byt the gtere position, size, and base is searched 
for the first clear one is found, a success status is returned as 
well as the bit acetttaa Bu to the base) in the find position. 
fa ce ar bit is not found, a failure status is returned. f a size of zer 
S$ spec ‘fied then a failure status is returned. 


CALLING SEQUENCE: 
status.wic.v = LIBSFFC (startpos.rl.r, size.rbu.r, base.rl.r, findpos.wl.r) 
STARTPOS = 4 : Adr of start position 
SIZE = 8 : Adr of pize 

3; Adr of bas 

; Adr of field for clear bit positio 


BASE = 12 
FINDPOS = 16 
; INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
FUNCTION VALUE: 


SS$_NORMAL - if a clear bit is found 
LIBS_NOTFOU - if a clear bit is not found 


SIDE EFFECTS: 
S$S$_ROPRAND ; reserved operand fau 


size greater than $5 {8 is specified 
2.) start position greater than 31 and field is in registers 


-ENTRY LIBSFFC , “M< > ; Entry point 


OOCCSCOCOOCOOCSOOOOOOOOCOOOOOCSOOSOOSOOOSOSOSOOSOOOOOSOOOOOOOOOOoOO 
COOCCOCOCSOOCOOCOOOOOOCOCOSOOOSOOOOCOOSOSOOOSOOOOSOOOSOoOO 


ONL FT DDNVVOOCOOCOCOOCOCCOOOCOOOSC OOOO OOOCOOOOOOOOOOOOOOO: 


=OOONA MEAN 0 ODA UNE WIN © ODA ME WIN 3 O OD NAME WIN 2 0 OO NA UE Wt OVOONO 


FFA AAA A AAAI 4 4 BQO OOO OOOOCOWOOOWOWOWOO 


me a ek a at a et = = = = = 4 = 2 = 2 = 2 = 


COOSCOCSCOCOOOOSOSOOSOOSOOOOOOOOOOSOSOOOOOOSOOSoOO 


10 ec Oc BC O08 BC 04 86C €EB 000 FFC @STARTPOS (AP) IZEC(AP), =- :; find first clear bit 
00 @BASE(AP), af INDPOS (AP) 
98 is bp BNEQ 10$ ; branch if bit found 
50 00000000'8F B? : nove #LIBS_NOTFOU, RO ; return failure status 
50 00000000'8F BO ! 108: neve #SS$_NORMAL, RO ; return success status 


<~— 


B11 
Crosrec hia Pinot clear bit oases 99:08:85 HONOR TE. SAESCIOEEC MAR: 1 — 4) 03 
001D 142 «END : 


- find first clear bit yp iis =138¢ 99: 98: 4 YVAX/VMS Macro v04-00 Page 


984 6:52 (CLIBRTL. REIL IBFFC.MAR; 1 


SE = ° 

F INDPOS = 6 
LIBSFFC 00 RG 9} 
LIBS_NOTFOU eererere x 0 
aize = 00000008 
S$S$_NORMAL terterer x 00 
STARTPOS = 00000004 

Famer eecaraamenaeaes + 

! ; Psect synopsis H 
PSECT name Allocation PSECT No. Attributes 
- ABS. 00000000 ( 0.) 00 t 8.9 NOPIC USR CON ABS LCL — NOEXE NORD NOWRT NOVEC BYTE 
_LIBSCODE 0000001D ¢ 29.) O01 ¢ 1.) PIC USR CON REL LCL SHR EXE =RD NOWRT NOVEC LONG 

beeen eosenenaneeoceen ne ecco es 
! ; Performance indicators H 

Phase Page faults CPU Time Elapsed Time 
Initialization 29 00: 8:00 .9 00:00:01.98 
omnene processing u Bat 888-3 4S SEE 
Symbol table sort (9 3:08 8.8 3:8 3: 
Symbol table output $0; 8: 0.01 $0: 00:0 :01 
Psect synopsis output 83: 0: 3 00:00:00.02 
Cross-reference output 0:00:00. 00:00:00.00 
Assembler run totals 25 00:00:00. 00:00:09.30 


The working set Limit was 900 eo 
1409 bytes (3 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 7 non-local and 1 Local symbols. 
142 source Lines were read in Pass 1, producing 11 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 


we emer meme meme ew meer n erm ewe} 


Macro library name Macros defined 
“S25SSDUAZB:(SYSLIBISTARLET.MLB;20 0 SS” 0 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRE SS1ON/D1 SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:LIBFFC/OBJ=OBJ$:LIBFFC MSRC$:LIBFFC/UPDATE=(ENHS$:LIBFFC) 
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